home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / misc / sci / DAlmanaExe.lha / Install_DigitalAlmanac / Installation / Install-Data / Install next >
Text File  |  1998-03-18  |  1KB  |  57 lines
  1. ;$VER:DigitalAlmanac Install_Data 39.7
  2.  
  3. (if (= @language "deutsch")
  4.     (
  5.     (set #ask-data "Wo befindet sich das Datenarchiv 'DAlmanac_Data.lha' ?")
  6.     (set #ask-lha "Wo befindet sich 'Lha' ?")
  7.     (set #ask-da "Wie heißt das Verzeichnis von Digital Almanac ?")
  8.     (set #msg-install "Das Datenarchiv wird jetzt entpackt.")
  9.     (message "Willkommen zur Installation der Daten für Digital Almanac.\n\nSie müssen das Hauptprogramm von Digital Almanac bereits fertig\ninstalliert haben, um weiter machen zu können !")
  10.     )
  11. )
  12.  
  13. (if (= @language "english")
  14.     (
  15.     (set #ask-data "Where us the data archive 'DAlmanac_Data.lha' ?")
  16.     (set #ask-lha "Where is 'Lha' ?")
  17.     (set #ask-da "What's the name of Digital Almanac's drawer ?")
  18.     (set #msg-install "The data archive now will be unpacked.")
  19.     (message "Welcome to the installation of the datas for Digital Almanac.\n\nTo continue, you must have completly installed the main program !")
  20.     )
  21. )
  22.  
  23. (set #data-dir
  24.     (askdir
  25.         (prompt #ask-data)
  26.         (help @askdir-help)
  27.         (default @default-dest)
  28.         (disk)
  29.     )
  30. )
  31.  
  32. (set #lha-dir
  33.     (askdir
  34.         (prompt #ask-lha)
  35.         (help @askdir-help)
  36.         (default "C:")
  37.         (disk)
  38.     )
  39. )
  40.  
  41. (set #da-dir
  42.     (askdir
  43.         (prompt #ask-da)
  44.         (help @askdir-help)
  45.         (default "Work:DigitalAlmanac")
  46.         (disk)
  47.     )
  48. )
  49.  
  50. (set #data (tackon #data-dir "DAlmanac_Data.lha"))
  51. (set #lha (tackon #lha-dir "Lha"))
  52.  
  53. (working #msg-install)
  54.  
  55. (run (cat #lha " e \"" #data "\" \"" (tackon #da-dir "") "\""))
  56.  
  57.